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' 
Definition file for MTAACP compilation 
; Version: *v04-000' 
PITITILILI LILI LLL LLL LLL LLL Titi t titi tt 
COPYRIGHT (c) 1978, 1980, 1982, 1984 


BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS fo “ietie ay Pyrat sued UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 


® 
® 
® 
® 
® 
® 
® 
1H 0 E ANY OTHER * 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
HER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. + 
® 
THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
CORPORAT ION. . 
DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. . 
| caeneubéasaonunetaaneneanibdennnnddanteiebeennnnseebeedmenanenesensaneenenen 
ee 
a 
FACILITY: MAGNETIC TAPE ACP 
i ABSTRACT: 


These are the data stucture definitions and random macros 
used to compile the MTAACP. 


i ENVIRONMENT: 
Starlet spareewag System, including privileged system calls 
and internal system subroutines. 


Author: D. H. Gillespie, Creation date: 18-may-77 16:25 
i MODIFIED BY: 


v03-006 spray Meg Dum 26-May-1983 15:14 
ix to support new Ate s IOCSCVT "D VNAM 


v0O3-005 MMD0173 on fuse + 9-May-1983 15:15 
Fix to make USER_STATUS canatatentl? "det ined within module 


v03-004 MMD0145 Meg Dumont, 25-Apr-1983 18:14 
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v03-003 


A0101 


16-SEP-1984 17:00:08.58 Page 2 
Add HDR4 Label, add some Literals for scratch_offset 
and file_spec_max 


mMD0119 Meg Dumont, 29-Mar-1983 0:44 
Added misc def's common inside the MTAACP 


v03-002 mmMD0002 neg Dumont 5-Jan-1983 13:50 
Add another field to be define for V3.0 systems 
v03-001 MMD0001 Meg Dumont, 11-Nov-1982 10:44 
Add VCB def for enable user EOT handling. Needed to work on V3.X 
v02-008 DMw00075 David Michael Walp 8-F eb-1982 
Added VVPS{TiS}_ACCOUNT and changed _PROC_NAME to _USERNAME 
v02-007 DMw00058 David Michael Walp 7-Dec-1981 
Removed MAX_FILESTR_LEN 
v02-006 DMwW00047 David Michael Walp 30-Jul-1981 
Removed MAX_ATTR_CODE for global ATRSC_MAX “tobe. added 
assume MACRO 
v02-005 DMw00028 David Michael Wal 30-Jul-1981 
Remove MOUSV_NORDVOL1 Added MOUSV_CHKIFSPC 
v02-004 DMw00027 David Michael Walp 20-Jul-1981 
Added True and False 
v02-003 DMw00020 David Michael Wal 26-May-1981 


Added Work Area Sz which was a GLOBAL LITERAL from OPCOM. 
Inceased MSGSIZE from 20 to 134, new OPCOM message format. 


v02-002 MCNO018 a del C. Nas 24-Jun-1980 
Fix syntax error 4% the linkage definitions. 

v02-001 REFORMAT Maria del C. Nasr 17-Jun-1980 

A0103  MCNO003 Maria del C. Nasr 01-Oct-1979 14:45 
Add HDR3 definition 

A0102. MCNO002 Maria del C. Nas 26-Sep-79 16:05 
Change BUG_CHECK macro to use builtin BUGW. 

A0102 SPR20439 D. H. Gillespie, 21-Nov-1978 13:21 


add number of tape marks ge 


DGHO003 espie 17-NOV-1978 10:00 
chan e ERROR() ceopes 4 Use R CCODE) to be compatible with 
new 
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; ; define common external registers 


MACRO COMMON_REG = CURRENT _VCB 
MACRO GLOBAL-REG = CURRENT _ -vCB 


: define commonly used Linkage 
LINKAGE 
COMMON_CALL = CALL 
NOPRES = CALL 


JSB JSB 
LSCLOSE_FILE JSB 


LSGET_REQ = JSB 
LSGET_START_HDR = JSB 


LSGTNEXT_VOL_RE = JSB 
LSGTNEXT-VOL-WR = JSB 


LSISSUE_10 = SB 
LSNEXT_VOL_READ = JSB 
LSNEXT_VOL_WRIT = JSB 
LSPRINT_NOT_LAB = JSB 
LSPRINT_OPR_MSG = JSB 
LSREPOSITION = JSB 
LSWRAP_AROUND = JSB 
LSWRITE_HEADER = JSB 
LSWRITE_™ = JSB 
LSWRITE_TRAILER = JSB 


NOT 
LSIOC_CVT_DEVNAM = JSB aaa + 3 


: define macro to extract size 


= 11: REF BBLOCKE: 
= 11%: 
: aps shape 
" “NOPRESERVE (071 3,4,5,6,7,8,9,10), 
LOBAL (GLOBAL_REG). 
GLOBAL (GLOBAL REG) 
NOTUSED(2,3,%,5,6.7,8,9) 
GLOBAL (GLOBAL REG) 
NOTUSED(5,6,7,8,9,10), 
GLOBAL (GLOBAL REG) 
NOTUSED(2,3,%,5,6,7,8,9) 
GLOBAL (GLOBAL REG) 
_NOPRESERVE (73 4,5. -6.7,8,9,10), 
enOTURED (23/0 ,876,7,8,9.10), 
“NOPRESERVE(273,6,5, 6.7,8,9,10), 
NOPRESERVE (373 4,5,6,7,8,9,10), 
GLOBAL (GLOBAL_R Recs * 
Ghpenr TeLOSAC REED 
SnaTOsenta,5. 2,524 6,7,8,9,10), 
eae AS ae 6. 7,8,9,10), 
” “NOTUSED ( ae REG) 6.7,8,9,10), 
GLOBAL (GLOBAL REG)’ 
GLOBAL tL 89,10). 
NOTUSED(2,3,% ae 6.7,8,9,10), 
 ShoTusente,$ 608,7.8 
TER-O. REGISTERS “REGISTER: =4,REGISTER=5; REGISTER=1) 
ERVE (2,3,4,5,6) 
NOTUSED (7,8,9,10:11); 


MACRO SBYTESIZE(OFFSET,POSITION,WIDTH,SIGN) = WIDTH / 8 %; 
declare psect usage to minimize page breakage. 


PSECT 
OWN = SLOCKEDD1$ 
GLOBAL = he edt 
PLIT = SCODES (EX 


€cuTe); 
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; Declare VAX built in functions. 


BUILTIN 
CHAU, : change mode to user ( ERR_EXIT ) 
INSQUE, ! insert into qyeue 
MOVTUC, ! translate strings and check for invalid characters 
MTPR, ! move to privilege register ( SET_IPL ) 
REMQUE, ! remove from queue 
T; ! rotate longword 


' Structure declarations used for system defined structures to 
; save typing. 


STRUCTURE 
BBLOCK [O, P, S, E; N2 = 


(BBLOCK+0)<P,S,E>, 
vena >) he C1, 0, P, S, E; N, BS) = 
(BBLOCKVECTOR+(0+]*BS))<P,S,E>; 
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1 
assorted macros used in fcp code 


: set processor IPL 
MACRO SET_IPL (LEVEL) = MTPR (ZREF (LEVEL), PRS_IPL)%; 


: Declare code that must be locked into the working set. 
MACRO LOCK_CODE 


= 

PSECT CODE = $LOCKEDCI$, 
PLIT = SLOCKEDC!S, 
OWN = $SLOCKEDD1$, 
Pia = SLOCKEDD1$; 


ieee im that they make use of the value of SP while building the arg List. 
!eeeee It is the opinion of the bliss maintainers that this usage is safe 
posnne from planned future optimizations. 


i Macro to call the chenge mode to kernel system service. 
} Macro call format is ‘KERNEL_CALL (ROUTINE, ARG1, ARG2, ... )"’. 
MACRO 
REEL FALL (R) = 
EXTERNAL ROUTINE SYSSCMKRNL : ADDRESSING_MODE (ABSOLUTE); 
BUILTIN SP; 
SYSSCMKRNL(R, .SP, ZLENGTH-1 
£1F “LENGTH GTR 1 X%THEN, %REMAINING %F1) 
ENDZ; 
| 
| 
| 
i 


| 
: 
teeeee NOTE: The following two macros violate the BLISS benguage definition 


' 
! Macro to call the change mode to exec system service. 
» Macro call format is “EXEC_CALL (ROUTINE, ARG1, ARG2, ... )". 


MACRO 
EXEC_CALL (R) = 
BEGIN 


EXTERNAL ROUTINE SYSSCMEXEC : ADDRESSING_MODE (ABSOLUTE); 


BUILTIN 
SYSSCMEXEC(R, .SP, ZLENGTH-1 
hol £1F “LENGTH GTR 1 XTHEN, ZREMAINING X%F1) 


: Macro used to signal fatal errors (internal consistency checks). 
MACRO | 
BUG_CHEC ODE) = 
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BU 
L 


IN BUGW; 
NAL LITERAL %NAME('BUGS_*, CODE); 
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PUSUCEMARE "BUGS." CODE? OR 4); 


Macro to signal an error status and continue. 


see > | aa = 
ele USER_STATUS : VECTOR (2); 


MAP USER_STATUS : WORD; 

USER_STATUS = CODE; 
ott 
' Macro to signal an error status and exit. 
: papseneyeee as a call into a change mode to user instruction followed 
! by ° 
' 
MACRO 

ERR_EXIT (CODE) = 
(CHMUCZREF (ZIF ZNULL (CODE) ZTHEN O ZELSE CODE %F1));)2; 


; Macro to generate a string with a descriptor. 


DESCRIPTOR (STRING) = 
UPLIT (ZCHARCOUNT (STRING) 
UPLIT BYTE (STRING)S2; 


are to return the number of actual parameters supplied to a routine 
' call. 
' 
MACRO 
ACTUAL COUNT - 


BEGI 
BUILTIN AP; 
. (.AP)<0,8> 
ENOZ; 


' check to see that constants have not agh r+ 
: @.g. ASSUME (IRCSC_FIXOVHDSZ + 2, IRCS$C_VAROVHDSZ); 


"MACRO ASSUME (A,B) = 
ZIF SBYTEOFFSET(A) WNEQ SBYTEOFFSET(B) 
ZTHEN ZWARN("WARNING CONSTANT HAS CHANGED") 
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te 

i The So} lowing structures are for the management of virtual pages in MTAACP. 
! There is always one virtual page for each volume set. 

i Other pages are neeeded when a request must be blocked for volume switch, 
ts wait for user label request (hot mplemented), or wait for rewind. 


this structure describes a frre te: block 


MACRO FVPSL_FORWARD = 0,0 i ! forward Link for next free page 
MACRO FVPSL_-BACKWARD = 3°93 : beckuards Link for previous free page 
MACRO FVPS$W_SIZE = 8:0 i &.. y Ogtes in the free page block 
MACRO FVPSB"TYPE = $. 6:8: ; i structure 

LITERAL FVPSK_LENGTH = 1 i (zrgth of fixed data 


: this structure describes a volume virtual page 


MACRO VVPSL_FORWARD = 9.8. 
MACRO VVP SL BACKWARD = 4,0 ait 
MACRO YPE = 19. 3: 
LITERAL PSK" LENGTH = 1 ! Length of fixed data 


! This structure describes fixed data in the first virtual page belonging 
: to the volume. 


MACRO VVPST_HDR1 = a8: -0,0,0%; ! HDR1 Label 
LITERAL VVP$S~HDR1 = 8 
MACRO  VVPST_HOR = 92,0,0,0%; ! HDR2 Label 
LITERAL VVP$S_HDR = 80; 
MACRO VVPS$T“HDR = 172,0,0,0%; ! HDR3 Label 
LITERAL VVPS$S_HDR = 80; 
MACRO VVPST_HDRG = c— ! HDR4 Label 
Ss . 
O VVPST_SCRATCH = 5 .0.0,08; ! scratch area 
AcRO WPS nSTAtuUS” . ei 0 0% 10 stat 64 bits 
= -0,32.02; status - 
MACRO VVPSL-STALLIOFL = 4 5:3 OR: STALLED 1/0 FORWARD atts 
MACRO PS$L- LIOBL = 424,0,32,02; stalled 1/0 backward Link 
MACRO VVPSL_ ~BLot IF = 4628,0,32,0%; block count difference 


(processed pgp oth eeu 


VVPST_USERNAME = 432, 0,0,02%; username of volume m 
MACRO VVPSS_USERNAME = same length as s188s. “USERNAME 
MACRO VVPST_ACCOUNT = 444, ‘0, 0,02; username oe olum 
MACRO vVPS$S~ At Count = Ri same congt® He si8ss. ORC COUNT 
MACRO VVPSL“NO_T = 452,0,32,0%; ' number of tape marks spaced 


ASSUME : JIBSS_USERNAME, VVPSS_USERNAME ) 
ASSUME ( JIBSS-ACCOUNT, VVPSS_ACCOUNT ); 


LITERAL SCRATCH_OFFSET = 4 * VVPSS_HDR1; ! The offset is the no of header Labels 
i times the size of the ANSI Label 
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: Random other definitions 
; MOUNT_VOL flags 


MACRO MOUSV_REWIND 
MACRO MOUSV“LBLCHEC 
MACRO MOUSV~CHKIFSP 
MACRO MOUSVMOUNTERR 


= 0,0,1,0%; |! rewind on mount 
K = 0,1,1,0%; ! check label 
C= Gel %; ! check Label if operator specified 
= 0,5,1,0%; ! there was an error, force physical mount 


some world famous Boolean values 


TRUE = 1, 
FALSE = 0, 


these are the structure types 

FVP_TYPE = 1, 

VVP_TYPE s 2, 

: this is the size of a mailbox message from the operator 
WORK_AREA_SZ = 128, 


MSGSTZE = 124, ! 4 = status, 4 = id, operator text 
i plus ZOPCOM Line (WORK_AREA_SZ - 4) 


IOEFN = 1, ' event flag for 1/0 

FN = 1, ! event flag for 1/0 
TIMEFN © Be ! event flag for timer wait 
EXEC_MODE = 1, exec_mode value 
USER_MODE = 3, user_mode access 


MAX_BEVNAM_LENGTH = 16, 


NO_OF _SUPPORT_ANSI_LABELS = 4, 
ANSI _CBLSZ = 80, 
FILE-SPEC_MAX = 79; 


Set the maxium length that a devname 
can be with VMS 

Number of supported ANSI Labels 

Size of the ANSI standard label 
Maximum file specification length 
for VMS long file names (39.39 
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